!> 加法计算
integer pure function add(x, y) result(z)
    integer, intent(in) :: x, y

    z = x + y

end function add
